//declare function getSomeValue() as stringSub Main()	dim i as string	i = "jose"   	i = getSomeValue()	msgbox("i=[" & i & "]")end subFunction getSomeValue() as string	return "Jose L Cuevas"End Function